home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / HYP / C-D / CoolMacStacks.sea / Cool Mac Stacks / Building Blocks / Textoid 3.1 (US) / card_3055.txt < prev    next >
Text File  |  1991-12-17  |  1KB  |  56 lines
  1. -- card: 3055 from stack: in.1 (US)
  2. -- bmap block id: 3273
  3. -- flags: 0000
  4. -- background id: 2661
  5. -- name: top & return & "Font :"¬&& Font & return & "Size :" && Size & return & "Style :" && Style¬& return & "Color :" && Colorend ClickInTexton closeTextoid Whatput "You closed window “" & What & "”"end closeTextoid
  6.  
  7.  
  8. -- part 1 (field)
  9. -- low flags: 01
  10. -- high flags: 0007
  11. -- rect: left=69 top=68 right=252 bottom=434
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 3
  16. -- text size: 9
  17. -- style flags: 0
  18. -- line height: 12
  19. -- part name: 
  20.  
  21.  
  22. -- part 5 (button)
  23. -- low flags: 00
  24. -- high flags: A003
  25. -- rect: left=174 top=281 right=311 bottom=343
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 1
  29. -- font id: 0
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: Textoid
  34. ----- HyperTalk script -----
  35. on mouseUp
  36.   Textoid "Test1","cd fld 1",false,"91,69","red"
  37.   testError the Result
  38.   Textoid "Test2","This is a sample of wrapping text, you can edit me." ,"chicago",12,"285,142,385,242","white,blue"
  39.   testError the Result
  40.   set selectedChunk of window "Test2" to "11,16"
  41. end mouseUp
  42.  
  43. on TestError What
  44.   if What ‚↠empty
  45.   then
  46.   beep
  47.   answer What
  48.   exit to HyperCard
  49. end if
  50. end TestError
  51.  
  52.  
  53. -- part contents for card part 1
  54. -- note: style data is present
  55. ----- text -----
  56. =